home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / LocalIp.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  1.9 KB  |  76 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  10. <p><big><strong><font face="Arial">Add local IP mask</font></strong></big></p>
  11.  
  12. <%
  13.     
  14.     if Request.ReqParam("action") = "Add" Then 
  15.         
  16.         
  17.         if(Len(Request.ReqParam("oldMask"))>0) then
  18.             Dialer.DeleteLocalAddress 1,Request.ReqParam("oldMask")
  19.             Dialer.AddLocalAddress 1,Request.ReqParam("mask")
  20.         else
  21.             Dialer.AddLocalAddress 1,Request.ReqParam("mask")
  22.         end if
  23.  
  24.         If Not Err.Number = 0 Then 
  25.             ErrLine = Err.Description
  26.         else
  27.             Response.Redirect("LocalAddresses.agp?Action=Show")
  28.         End If
  29.     end if
  30.  
  31.     if Request.ReqParam("action") = "Cancel" Then 
  32.             Response.Redirect("LocalAddresses.agp?Action=Show")
  33.     end if
  34.  
  35.     oldMask=""
  36.     if Request.ReqParam("action") = "Edit" Then 
  37.             oldMask=Request.ReqParam("mask")
  38.     end if
  39.  
  40.     
  41. %>
  42.  
  43. <%
  44.     If Not Len(ErrLine) = 0 Then
  45.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  46.     End If
  47. %>
  48.  
  49.  
  50. <form method="POST" action= "/services/LocalIp.agp">
  51.  
  52. <table border="1" cellpadding="0" cellspacing="0" width="60%">
  53.  
  54.     <tr>
  55.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  56.             IP Address mask
  57.         </font></strong></td>
  58.     </tr>         
  59.     <tr>
  60.         <td width="50%"><font face="Arial">
  61.          <input type="text"        size="40"        name=    "mask" value= <%Response.Write(oldMask)%> >
  62.          <input type="hidden"    size="40"        name=    "oldMask" value= <%Response.Write(oldMask)%> >
  63.         </td>
  64.     </tr>
  65.  
  66. </table>
  67. <br>
  68. <input type="submit"    name="action"    value=    "Add">
  69. <input type="submit"    name="action"    value=    "Cancel">
  70. </form>     
  71.     
  72. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  73.  
  74. </body>
  75. </html>
  76.